home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Network / miamidx.mod < prev   
Encoding:
Text File  |  2000-02-01  |  841 b   |  53 lines
  1. /* $VER: HTMLEXT Modul: miami.mod V 020 by Juan Manuel Wehrli 1999 - 2000
  2.  */
  3.  
  4. PARSE ARG Befehl iface
  5.  
  6. if ~show("L",rexxtricks.library) then do
  7.     call addlib("rexxtricks.library",0,-30,0)
  8. end
  9. NL = '0a'x
  10.  
  11. OPTIONS RESULTS
  12. ADDRESS COMMAND
  13.  
  14. if EXISTS('miami:miamidx.beta') then do
  15.     miamiprg = "run <>NIL: miami:miamidx.beta"
  16. end
  17. if EXISTS('miami:miamidx') then do
  18.     miamiprg = "run <>NIL: miami:miamidx"
  19. end
  20.  
  21. if ~show('P','MIAMI.1') then do
  22.     miamiprg
  23.     "SYS:REXXC/WAITFORPORT MIAMI.1"
  24. end
  25.  
  26. if Befehl = ISONLINE then do
  27.     ADDRESS MIAMI.1
  28.     ISONLINE iface
  29.     CALL SETENV(".htmlext.tmp",RC)
  30. end
  31.  
  32. if Befehl = ONLINE then do
  33.     ADDRESS MIAMI.1
  34.     ONLINE iface
  35.     do while mol = 0
  36.         Delay(10)
  37.         ISONLINE iface
  38.         mol = RC
  39.     end
  40. end
  41.  
  42. if Befehl = OFFLINE then do
  43.     ADDRESS MIAMI.1
  44.     OFFLINE iface
  45.     do while yol = 1
  46.         ISONLINE iface
  47.         yol = RC
  48.         Delay(10)
  49.     end
  50. end
  51. exit
  52.  
  53.